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3 FACILITY: 
SET HOST/LINE=ttcn: 
{| ABSTRACT: 
Provides data rere. equipment (DTE) or terminal emulation 


SSssossososoosooooooSSSSSSSSS 


4 3 routines in SET 
$} {| ENVIRONMENT : 


VAX/VMS user mode. 
i AUTHOR: Jake VanNoy, CREATION DATE: 9-Jan-1984 
{| MODIFIED BY: 


v03-001 JLV0365 Jake VanNoy 11-JUL-1984 
Bug fixes and better messages. 
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Include files 


LIBRARY 'SYSSLIBRARY:STARLET’; 


REQUIRE "OBJS:RTDEF'; 


REQUIRE *SYSSLIBRARY:UTILDEF'; 


Table of contents 
FORWARD ROUTINE 


READ DELAY AST 
Set PASSTHRU: RODE. 


“COMMAND. LAST: 
LLOCATE_BuUF, 
DEALLOCATE _BUF : 
SEN NSE _M0: 


dump tate: 


1 
Literals 


LITERAL 
w_riosb_status 
w_riosb_datasize 
b-riosb_termchar 
b-riosb_termsize 


char$c_ Lf 
log_bufsiz = 512, 
rte$c_portread_max 


' 
: Macros 


0 
quit_if_error(command) = 
BEGIN 


LOCAL 
status; 


status = command; 


NOVALUE, 
NO 


NOVALUE , 
NOVALUE, 
NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 


SOIR 09:31:53 YIMCIABLSSHCR2Hts85762caeroe.osas¥®® 


VAX/VMS system definitions 
rtpad stuff 
Private VAX/VMS macros 


Main routine 

initialize 

autodial number 

do transfers 

read command keyboard 

read command keyboard AST 

read port mailbox 

read port wali box AST 

read from SYSSINPUT 

read from port with timed read 
ast from port with timed read 
set timer ast routine 

set terminal mode 

start write to command channel 
ast for write to Command channel 
allocate buffer 

deallocate buffer 

sense characteristics 


2% 
exit handler 


<2 
o- 


Sete Se Ge Seen Ge Se Se Ge Ge Se ee ee CH Be ae 


8 
18-Sep-1986 02:21: VAX=11 BLiss-32 v4.0-742 ° 3 
1b-Sen-1984 9E 68s Pee nGAl tea hte ee Sécanrpre.052:4°% ca} 


Fe 
s* 


: 1}? i 7 #1 if NOT .status 
s 49 La} 1 HEN 
: 115 “ 1 BEGIN 
3 118 fal 1 WAKEFLAG = 1; 
s 49 4 1 SWAK H 
: 118 te 1 RETSTATUS = .status; 
3 138 : i ; RETURN .status; 
5 : 1 5 ! ENDE; 
. *% 4 3 1 MACRO 
: 124 * 4 1 quit (status) = 
: 125 ™ 1 EGIN 
ee $ 4 2 1 WAKEFLAG = 1; 
= i} 1 SWAKE (); 
: 128 mi 1 RETSTATUS = status; 
. ¥ i} 1 RETURN status; 
a 4 1 END2; 
3 «(131 7 * 
* § $28 1 MACRO 
3; 1 m 0857 1 PRINT (string) = ! print debug data 
eo i] £28 1 BEGIN 
3 status; 
: 5 . 5 ! LOCAL stat 
: 1 i oe outdesc £0] = 132; 
: : 3 . 4 ! status = SYSSFAO (string, outdesc, outdesc, %remaining); 
: 140 " He 1 IF NOT .status THEN signal (.status); 
: L ” outdesc); 
13) ™ 0865 : Breer OUTPUT (¢ d ) 
: us ge 
3 132 0869 ! } External Routines 
: 149 871 1 EXTERNAL ROUTINE 
: 148 ors 1 LIBSF IND_IMAGE_SYMBOL, 
; 149 8735 1 STRSCONC 
: 150 874 1 LIB$PUT_OUfPUT, ! 2% for stats 
3 151 75 #1 SYSSFAO, ' 2% for stats 
ss ¢ 76 1 debug_ast, ! ae8 
2? o 877 1 CLISPRESENT, ! cli routine 
: 1546 8 1 CLISGET_VALUE, ' cli routine 
s 1355 1 SYS Ser TAR 
: 4 6 9 1 RTLOG ITE_STRING, 
; 1 1 LIBSGET_VM, 
: 138 § 1 LIBSFREE_VM, 
s 39 1 LIBSSI P 
: 199 : } ; LIBSASN_WTH_MBX; ! assign channel with assoc. mailbox 
; 196 ' } External Storage 
+ 164 1 EXTERNAL 
3; 165 1 RTLOG_FLAGS, 
3 198 1 CTERM FLAG, 
.-. 91 1 FLAG 
: 168 9 1 WAKEFLAG 
: 16 93 1 RETSTATUS; 
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H ; 378 } GLOBAL ROUTINE TERMSEMULATE (port_name: REF VECTOR, cmd_chan: WORD) = 
3 5 948 1 !+4 
; 8 949 1! 
; ‘ 33 } } FUNCTIONAL DESCRIPTION: 
: 9 1! main routine 
; 0 9 1: 
; 1 954 1! 
; ¢ Be? ! ; CALLING SEQUENCE: 
3 0357 1 ! INPUT PARAMETERS: 
3 5 956 1! port_name: descriptor of port name (from /LINE= qualfier) 
; 0360 : command_chan: channel to SYSSCOMMAND terminal 
: 8 961 1 ! IMPLICIT INPUTS: 
; 9 44 1? 
; 240 0965 1! INDFLAG - set to 1 if SYSSINPUT is a file 
> 261 0964 1! 
; tg 0965 1 ! OUTPUT PARAMETERS: . 
; 24 0966 1! NONE s | 
3; 2446 49 1} 
; 245 968 1! IMPLICIT OUTPUTS: 
; se$ 0969 1! NONE 
; 24 0970 1! 
; 248 0971 1 ! ROUTINE VALUE: 
; 249 0972 1! NONE 
: 250 0975 1! 
3 gl 0974 1 ! SIDE EFFECTS: 
; 26 0975 1! NONE 
; @ 0976 1! 
; 254 0977 1 !-- 
: 255 0978 1 
; 256 0979 BEGIN 
; 257 0980 
3 4 44 command_chan = .cmd_chan; ! save command channel 
; 366 0388 Return_if_error (initialize(.port_name)); ! assign channels, etc. 
; 262 0988 Return_if_error (dial_number()); ! dial phone number 
> 26 3464 
; 264 987 : 
3; 265 0988 H tell user how to exit 
; ef 944! LibSsignal (REMS_TOEXIT, 1, ZASCID ‘*\" ); 
3 $3 099 Return_if_error (transmit ()); ! do real work 
: ei 994 RETURN (1); 
3 Le: 995 
3 996 END; ! End of routine 
-TITLE 


RTDTE 
-IDENT \vV04-000\ 
-PSECT S$PLITS,NOWRT ,NOEXE ,2 


ifosen-196e 02:21:83 My ats 


00 00 SC ay AAB: .ASCII \)574250><0> 
4 500 P.AAA: .LONG 17694722 
0000000' »ADDRESS P.AAB 


.PSECT SOWNS,NOEXE,2 
00000000 00000 MAX_PORT_COUNT: 
00000000 00004 CNT_RP_TIMED: 
00000000 00008 CNT_RP_CHARS. 
00000000 0000C CNT_RP _1éRO* 
00000000 00010 CNT_RP_ “TIRES 
00000000 00014 CNT_RP vig? 
00000000 00018 ent _rp_agton 
00000000 0001¢ CNT_WR_AST? 
00020 Loc_BuFFER: 
00000000 00220 Log_count: 
00224 COMMAND_CHAN: 
00226 PORT_CHAN: 
00228 PORT_MBX “CHAN: 
TBLKB 


poega ~BLK 
00000000 0022¢ PORT_COUNT: 


LONG 
00000000 00230 WRITE Active cou 
00000000 00234 TIMER ante 
00000000 00238 READ_PENDING: 


«LON 
00000050 0023¢ MSGSIZ: ;LONG 
00240 DELAY_TIME: 


00248 WRITE_COMMAND _0: 
00250 COMMAND_CHAR: 
0025C PORT_CHAR: 
BLK 
00268 EXIT_STATUS: 
00000000 0026¢ EXIT_BLOCK: 
000v 00270 “ADDRESS EXIT_ROUTIN 
titdiitc Mam dietas Nee ae um 
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RTDT Sep VAX-11 Bliss-32 V4.0-742 fe e 7 
v04- 178 Sep =1382 9¢: it 6 DISKSVMSMASTER: tk RTPAD.SRCIRTDTE.B32:1' > (3) 
00000000' 00278 .ADDRESS EXIT_STATUS : 

.EXTRN LIBSFIND_IMAGE_SYMBOL 

SEXTRN STRSCONCAT, LIBSPUT_OUTPUT 

SEXTRN SYSSFAO, DEBUG AST ~ 

SEXTRN CLISPRESENT, cCISGeT LUE 

*EXTRN SYSSSETINR. RTLOG ERTTEN _STRING 

“EXTRN LIBS$GET_V 

*EXTRN tIBSSiGNAL tIBSASN rH _MBX 

SEXTRN RTLOG_FLA ae. ef RM_FLa 

*EXTRN INDFLAGS EFLAG 

“EXTRN RETSTAT is” MREMS. TOEXIT 

SEXTRN CLIS$_ABSENT 


-PSECT S$CODES,NOWRT,2 


0000 00000 eENTRY TERMSEMULATE, Save nothing 3: 0946 
0000" CF 08 ac B60 Boggs MOVW MD_CKAN, COMMAND CHA : 0981 
04 AC ODD 8805 PUSHL rn NAM ; 0983 
0000v CF 01 FB 444 CALLS » INITIALIZE ; 
26 50 €9 0001 BLBC 1 ATUS, 3 
0000v CF 9° 4) 00013 CALLS +H iat NUMBER 3 0985 
1E 0 E9 00018 BLBC , $ 3 
0000" CF 9F eh PUSHAB ST AAA ; 0990 
61 DD OO001F PUSHL #1 3 
000000006 8F DD Boos) PUSHL #REMS$_TOEXIT 3 
000000006 00 03 FB 00027 CALLS #3, LIBSSIGNAL 3 
0000v CF 9° FB SOO gE CALLS #0, TRANSMIT : 0992 
03 0 €9 000 BLBC TATUS, 1$ 3 
50 01 DO 00036 MOVL » kO : 0994 
04 00039 1$: RET : 0996 


; Routine Size: 58 bytes, Routine Base: S$CODE$ + 0000 
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VAX=11 -0°742 
Vv04 14-Sep-1984 DISKSVMSMASTER: CRTPAD.SRCIRTDTE.B32;1 (4) 
: 27 998 1 ROUTINE INITIALIZE (port_name: REF VECTOR) = 
; ea $999 1 7 
; 278 1000 1 !++ 
; e279 1001 1! 
; + 1908 : FUNCTIONAL DESCRIPTION: 
3 S 4 } Assign a channel to the port terminal. 
; 284 1908 1 ! CALLING SEQUENCE: 
> 285 1007 1! 
; 286 1008 1! INITIALIZE(); 
: see 1997 1! 
; 288 1010 1 ! INPUT PARAMETERS: 
; 94 1011 1! NONE 
; 290 Ig 1! 
s 620) 1013. 1°! IMPLICIT INPUTS: 
; $36 1014 1! NONE 
; $3 1015 1! 
; 94 1016 1 ! OUTPUT PASAMETERS: 
; <ve 1017 1! NONE 
: 296 1018 1! 
: 44 1019 1 ! IMPLICIT OUTPUTS: 
; 298 1020 1! 
; $38 9s) ' port_chan - port channel 
3 30 1958 1 ! ROUTINE VALUE: 
; 302 10e% 1! NONE 
3 wes 1u2e5 1! 
> 304 1026 1 ! SIDE EFFECTS: 
3 303 1027 1! NONE 
; 306 1028 1! 
; 307 94 1 !-- 
; 308 1030 1 
; 309 1031 BEGIN 
; 310 1036 
3 3T 103 LOCAL 
3 6USle 1034 2 rte; 
2 Bs 1035 § 
: 314 O38 
s 315 103 write_command_q fo} = write_command_q [0]; 
; S16 1038 write_command_q [1] = write_command_q (0); 
; 317 1039 
: 318 1040 : 
; 4 \e4 Assign a channel to the port 
, 6a P 1968 Return_if_error ( LIBSASN_WTH_MBX (.port_name, msgsiz, msgsiz, 
: 38 pee port_chan, port_mbx_chan) ); 
3 ¢ 1968 : save away initial characteristics of the command terminal 
s 6 1308 Return_if_error (sense_mode (.command_chan, command_char)); 
: $f ’ r+ Return_if_lerror (sense_mode (.port_chan, port_char)J; 
3 $0 Hi set delay delta 
; 331 105 idelay_time [0] = - 0; ! § million is 1/2 second 
3 332 1054 delay time 5 = 38000, ! wee small time 


0004 


52 0000" CF 9E 

62 62 9E 

04 Ae 62 9E 
EO AS F 

DE A F 

F4 Ae OOF 

FL Ae OF 

04 aC 0D 

000000006 00 05 FB 

69 30 £9 

08 A2 9F 

7E bc = Ae 

0000v CF 02 Fe 
5A 50 3 

14 A F 

7E DE Ad 3C 

0000v CF 02 FB 

4B 50 £9 

F8 AS FFF85EEO 8F 00 
FC UA 01 CE 
24 «Ae OOF 

000000006 00 oI FB 

1 OD 

14 =A 3 

7E DE A C 

0000v CF Q Fe 
24 E 

? 4 

08 iA F 

7E dc OA C 

0000v CF Fe 
13 0 € 


port_char, true)); 


(.command_chan, command char, false)); 


' allocate 


! End of routine 


~EXTRN 
00000 INITIALIZE: . 
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: , 193) delay_time (1) = - 

3 5 1987 ; declare an exit handler here to reset command terminal characteristics 
; ; 1328 SDCLEXH (DESBLK = exit_block); 

; 9 1061 i Set both the port Line and the command Line A assthru mode, 
: re 1996 this will enable everything except XON and XOFF . . 

: 34 1064 Return_ if.error ( set_passthru_mode (.port_chan 

: 48 1992 Return_if_error ( set “passthru- mode : 

: 345 106? rte = allocate_buf srtese length); 

: 346 1068 read_port_mbx T.rte); 

; 347 1069 

; 348 1070 RETURN (ss$_normal); 

; 349 1071 

; 550 1072 1 END; 


INITIALIZE 
SYSSDCLEXH 


OMMAND _ Be R2 
OMMAND_Q, WRI 


_f 

me 
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CHA 
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PORT~ CHAN, 
We, SE SENS 
Atti! DELAY TIME 
BLOCR 

. SYSSDCLEXH 


wai’ 


#1 


i, 


T_CHA 

4 RT~C (SP) 
Sarat PASSTHRU _MODE 
=(SP) 

COMMAN .. CHAR 


P) 
#3 set set “PASS THU. MODE 
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TE_COMMAND_Q 
BC OMRAND “Q; WRITE ~ COMMAND ~0+4 
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1b-s0 300-138 ¢: gd; 38 DISKSVMSMASTER: CRTPAD. SRCIRTDTE.B32; ' (4) V 
7E 64 8F 9A 0007 MOVZBL #100, -(SP) : 1067 
0000v CF } FB CALLS #1, ALLOCATE_BUF : 
DD PUSHL RTE + 1068 
0000v cr 1 FB CALLS #1, READ_PORT _MBX : 
0 1 p 08D MOVL #1. R + 1070 
4 00090 1$ RET : 1072 


; Routine Size: 145 bytes, Routine Base: SCODE$S + 003A 
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ROUTINE DIAL_NUMBER = 


'e4 
' 


| FUNCTIONAL DESCRIPTION: 
Look for DCL qualifier /DIAL=xyz-abcd and dial that number 
appropriately. 


CALLING SEQUENCE: 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


i 

] 

| 
i QUTPUT PARAMETERS: | 
NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

NONE 

i SIDE EFFECTS: 

; NONE 

lo 


BEGIN 
LOCAL 
image_desc: BBLOCK Cdsc$c_s_bln], 
number_desc: BBLOCK Ceésc$c_s_blnJ, 
modem_desc: BBLOCK Cdsc$c_s_binJ, 
file_desc: BBLOCK Cdsc$c_s_bln], 
dial_addr, 
status; 
status = CLISPRESENT (SDESCRIPTOR('DIAL')); ' check for /DIAL= 
IF NOT .status THEN RETURN (SS$_NORMAL); ! return if no /DIAL 


zero desc. 

set to dynamic allocation 
copy to other desc. 

copy to other desc. 


sc$c_s_bln, number desc); 
number desc Cdsc$6b_Class] = dsc$k_class_d; 
i c_s_bIn, number_desc, modem_desc); 


: get NUMBER = 


return_if_error (CLISGET_VALUE (SDESCRIPTOR (*NUMBER'), number_desc)); 
:**libSput_output (number _desc); 


get MODEM_TYPE = 


£. 
1a-Sep-19be 19:65:00 DISkSumsnaStER:CRTPAD. SACIRTOTE.832:1°%" (55 


Pe 
3" 


.PSECT $CODES,NOWRT,2 
01FC 00000 DIAL_NUMBER: 
WORD 


; 410 1 status = CLISGET_VALUE (SDESCRIPTOR ("MODEM_TYPE'), mod ; : 
Hera 1 IF .status EQL CCIS_ABSENT THEN ° sting et : 
1 ee ae Ra : 
> 414 1135 i CLI parse can't return default if MODEM_TYPE not specified, ; 
; cle 13 $ Getantt ng is done by hand. > sige pes she : 
: 41 11 modem_desc (dsc$w_length]_ = %CHARCOUNT ('DF03'); : 
; 218 1135 modem_desc Egsc$y-tengen2 = UPLIT BYTE oe : 
i 420 114] ¢ !**libSput_output (modem desc); 3 
: 4 ¢ P 1128 return_if_error ( ; 
: ? ? 1129 STRSCONCAT (image_desc, SDESCRIPTOR ("DTE_'), modem_desc)); : 
; 425 p 1168 return_if_error ( : 
; 4 6 1167 LIBSFIND_IMAGE_SYMBOL (image_desc, SDESCRIPTOR (*DIAL_ROUTINE'),dial_addr)); ; 
i 498 1149 gj Call the newly activated image... 
; 2 . 113) status = (.dial_addr) (number_desc, .port_chan, .command_chan); ; 
: 6 é 1138 RETURN (.status) : 
3 63 1154 1 END; ! End of routine : 
.PSECT SPLITS, NOWRT ,NOEXE ,2 

4C 41 69 44 QOO0C P.AAD: ASCII \DIAL\ ; : 

00000004 00010 P.AAC: .: : : 

00900000" 00014 “ADDRESS P.AAD : : 

52 45 42 4D 55 4E 00018 P.AAF: ‘ASCII  \NUMBER\ : : 

ork "BLKB 2 : 

00000006 00020 P.AAE: :LONG 6 ; ; 

00000000" 00024 “ADDRESS P.AAF : : 

45 50 59 54 SF 4D 45 44 4F 4D 00028 P.AAH: ASCII \MODEM_TYPE\ : ; 

00032 “BLKB : 

20C0000A 0034 P.AAG: <LONG ; : 

0000000" 00038 * ADDRE H : ; 

33 30 46 44 QO5C P.AAl: ASCII \DFO3\ : F 

SF 45 (54 4G 004 P.AAK: ASCII \DTE_ : : 

SUE. BREE PAN Loe sy an : : 

45 GE 49 56 55 GF 52 SF 4c G1 Ro ee bee P.AAM: [ASCII \DIAL_ROUTINE\ : 3 

9000000¢ 005 P-AAL: .LONG 12 : ; 

0000006" 0005c [ADDRESS P.AAM : ; 

: Save R2.R3.R4 RS R6,R7,RB : 1074 : 

g 00009000¢ 00 9 MOVAB CLISGE ALUE ; rb : : 

0 cf 95 MOV P.AAC, R : : 

E ¢ E SUBL2 #36, §P ; ; 


1 -1984 02:21: VAX-11 Bliss-32 V4.0-742 Page 13 
1 aa 1 96:83:86 DISKSVMSMASTER:CRTPAD.SRCIRTDTE.B32:1 > (5) 
7 0D 0001 PUSHL 7 : 1116 ; 
000000006 90 1 F i CALLS #1, CLISPRESENT : 3 
0 0 1A MOVL RO, STATUS : : 
4 6 £ 1D BLBS STATUS, $ ; 1117 : 
0 01 oe 9 pers #1, R : ‘ 
08 00 6E ~ oo 2 4 18: MOVCS #0, (SP), #0, #8, NUMBER_DESC ; 1119 : 
17 AE B MOVB_ #2, NUMBER_DESC+3 + 1120 : 
OC AE 14 AE F MOVC3 #8, NUMBER-DESC, MODEM_DESC + 1121 : 
iC AE 14 AE 5 MOVC3 #8, NUMBER-DESC, IMAGE -DESC + 1122 : 
16 AE OF 0 B PUSHAB NUMBER_DESC + 1126 : 
10 A? OF F PUSHAB P.AA ; : 
68 08 Fe 004 CALLS #2 CLISGET_VALUE : ; 
\ 0044 BLBC STATUS, 3$ ; : 
g¢ AE SF 00047 PUSHAB MODEM_DESC + 1131 ; 
4 A? OF OO4A PUSHAB P.AA : ; 
8 : FB 04D CALLS “e, CLISGET_VALUE F : 
6 D 0030 MOVL R U ; : 
000000006 &F 6 D1 0005 CMPL TATUS, #CLIS$_ABSENT + 1132 : 
9 if 005A BNEQ : . 
OC AE 4 BO 0005 MOVW #4, MODEM_DESC : 1138 : 
10 AE C A? 9E 0006 MOVAB P.AAI, MODEM_DESC+4 + 1139 ; 
C AE 9F 00065 2$: PUSHAB MODEM: DESC + 1144 F 
4 A? GF 00068 PUSHAB P.AAJ : F 
24 AE 9F 00068 PUSHAB IMAGE_DE : : 
000000006 00 FB OO6E CALLS #3, STRSCONCAT : 
26 0 €9 000 BLBC STATUS, : 
; DD 00078 PUSHL SP + 1147 
48 A? 9F OOO7A PUSHAB P.AAL ; 
24 AE 9F 0007D PUSHAB IMAGE_DESC : 
000000006 00 03 FB 9080 CALLS #3, LIBSFIND_IMAGE_SYMBOL : 
14 50 €9 0008 LBC = STATUS, 3$ : 
7E 0000' CF 3C OO08A MOVZWL COMMAND _CHAN, -(SP) + 1151 
7E 0000" CF 3C O008F MOVZWL PORT CHAN, =< : 
1C AE 3 00094 PUSHAB NUM R_DESC : 
OC BE 03 FB 00097 CALLS #3, @DIAL_ADDR : 
6 50 DO 00098 MOVL RO, STATUS : 
04 0009E 3$ RET + 1154 


; Routine Size: 159 bytes, Routine Base: S$CODE$ + 00CB 


1155 1 
1156 1 


DASA E & 
WONOULSWN—OOM 


Sal el tal ad tal el ek ek Dak ek ad Dek a al eta 
SSETERES 
Mw 
a ee ed ed ed od od od od 


a a a a ee a a a a dd dd 
Sean sess WOO O0O0 OO OOO 09 0909 09 09 09 09 09 SIN NI SIN NIOAAAAAAOAAAOOUIUIN 


ieosep-1964 02:21:82 uA 


VAX=11 BLi 
SKSVMSMA 
ROUTINE TRANSMIT = 

‘os 


; FUNCTIONAL DESCRIPTION: 


Set up read’s and AST and return. Entire program is AST driven 
after the return from this routine. 


i CALLING SEQUENCE: 

TRANSMIT(); 

i INPUT PARAMETERS: 
NONE 


i IMPLICIT INPUTS: 
NONE 


i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i] 

1 

' 

' 

] 

i] 

! 

' 

' 

' 

' 

' 

i QUTPUT PARAMETERS: 
; NONE 
' 

' 

i 

' 

! 

' 

i SIDE EFFECTS: 
; NONE 
‘ 


L 
buffer_cr: BYTE INITIAL (13), 
rte: REF S$BBLOCK; ! rte data block 


IF - INDFLAG THEN 

: Set up for initial RMS reads. 
Return_if_error (Read_sysinput ()) 
BEGIN 

: Set up dual reads on command channel 


ELSE 


ree = all attocete byt cepete length); ! allocate 
ead_comm 
rte = ‘cere buf (reese _length); ! allocate 


Read_command_kB (.rte); 
, END;~ 
Do a read timeout on the port to set up reading 


Read_port_timed (1); 


PIPPI HENNE NI EN LIURRINIPINIPPIDIII YD 2 0 et tt 0 0 tt tt 
. 


TER: CRTPAD. rSACIRTOTE. B32; ;9 


If it's a 


! 0 forces no carriage control 


>; 4946 1214 

; 495 1215 ! 

; 4 1 1 ! Kick the whole thing off by sending a CR down the Line. 

: $38 : } VAX down there, LOGIN should start up. 

: 499 P 1 13 uit_if orree ( 

: 500 P 1 Q $a 0.6 = .por t chan 

: 501 P 1201 = jo$_writevblk, 

: og P 1 § we = buffer_cr, 

3 20 P 1 P2 =] 

; 504 P 1224 P4 = 05 

; 20? 1225 d3 

Bs 

3; 1 RETURN (ss$_normal); 

; 508 1228 

3; 509 1229 

; 510 1230 1 END; ! End of routine 
~EXTRN 

0004 00000 TRANSMIT: 

WORD 
5E 04 3 00008 SUBL 
6E 0D 90 0000 MOVB 
09 000000006 00 €9 Bpone BLBC 

0000v CF 00 Fe OOF CALLS 
27 50 F Bao, BLBS 
4 00017 RET 
7E 64 8F 9A 00018 1$ MOVZBL 
0000v CF 01 fe 001C CALLS 
52 50 00 00021 MOVL 
52 DD 00024 PUSHL 
0000v CF ) FB 00026 CALLS 
7E 64 F 9A 00028 MOVZBL 
0000V gf 1 Fe 002F CALLS 
2 0 od0 000 VL 
2 00 00037 PUSHL 
0000v CF 01 FB 00039 CALLS 
01 DD OO03E 2$ PUSHL 
0000v CF 91 FB 3 CALLS 
a. 4 CLRQ 
it 7C¢ 4 CLRQ 
0 D 49 PUSHL 
14 AE OF B PUSHAB 
43 C 4 CLRQ 
7E 30 7D vQ 
7E 0000' cr 3¢ MOVZWL 
E 04 CLAL 
000000006 $2 F ry CALLS 
i) 1 VL 
{8 E BLBS 
000000006 b 7 VL 
9000006 ; 6 b CALLS 
bopooo00s 6 85 bb tt 


SYS$QI0, SYSSWAKE 


Save R2 

#4, SP 

#18 BUFFER. CR 
INDFLA 


#0, READ SYSINPUT 
STATUS, 28 


4° OAT OcATE. BUF 
RTE 


RT 
#1, READ_COMMAND_KB 
#60, - 
#1, ALLOCATE_BUF 
RO RTE 
a. READ_COMMAND_KB 
#1, READ_PORT_TIMED 
-($p) 
rhea 
BUFFER_CR 

P) 

-(SP) 

PORT_CHAN, -(SP) 


#i2, SYS$Q10 
STATUS 


US, 
WAKEFLAG 


21 BODsR = 
MwA 410Oo 


SYSSWAKE 
STATUS, RETSTATUS 


1b-sep-t98e 00:21:32 ARH Biteens2 vesoc7a2 Pag 


a 


<D 


WE 


3; Routine Size: 


511 


134 bytes, 


1231 1 


50 
50 


Routine Base: 


SCODES + 016A 


= Eg. 


bse 


ep-1 
ont 


9B¢ 19:63:55 OESkbumsnaStenscatéan.sacanrpre.032:1°%" <b 


MOVL 
ET 
MOVL 
RET 


STATUS, RO 


#1, RO 


1886 


Bete te te 
— 


42 


i 


K 9 
eaSeei18be 98:88:88 Pea BAS FER cht ees tk conrore.032:0°%* «hh 


Pe 
3" 


: 13 } § } ROUTINE Read_command_kb (rte: REF SBBLOCK) : NOVALUE = ‘ 
i ie aft 
; 7 1256] | FUNCTIONAL DESCRIPTION: ; 
3 i : 8 : ; Read from the command keyboard a character at a time. ; 
; 521 1g40 1 CALLING SEQUENCE: ; 
: 5 i Read_command_kb (); ; 
; 525 1244 1 | INPUT PARAMETERS: ; 
; § : rb : } NONE ; 
3 8 ‘} { IMPLICIT INPUTS: 3 
; 1249 1! COMMAND _CHAN ; 
; 2 1 1250 1! : 
; § 1251 1 ! OUTPUT PARAMETERS: : 
§ ai) = : 
: 535 1254 1 | IMPLICIT OUTPUTS: ; 
; 1255 1! NONE : 
Pig ty | Feces : 
; 539 a. eo ; 
ORE RE | pace amie | 
: 34g 1261 1 | SIDE EFFECTS: 
: 544 1508} | A Q10 to SYSSCOMMAND is done. ; 
: 545 1264 1! : 
: 3s Fa 
: 548 136? 2 BEGIN ; 
Bo RBG : 
; 22) ! A Queue a request for a single character 3 
: 3g P 1 i Quit_if_error ( : 
; 554 P 127 $Q10 (CHAN = .command_chan 3 
3 22 P 1274 = jo$_readvblk OR io$m_noecho, : 
; 228 P 1275 ASTADR = Rea _ast, 3 
5 P 1 6 ASTPRM = .rte : 
; 558 P 127 10SB = rte freesq_iosbl, : 
; 559 P 1 8 P = rte (rte$t_buf], 3 
; 360 P 127 P2 = 1) : 
Be 3 3 
; 365 1 HY 1 END; ! End of routine Read_command_kb : 


0004 00000 READ_COMMAND_KB: 


= wB 
42d 18-Sep-1984 9: gh: 35 VAX-11 Bl feseze V4.0-742 ei RT 


14-Sep- DISKSVMSMASTER: CRTPAD.SRCIRTDTE. 832;1 ( 


«WORD Save R2 3 1338 ; 

7E 7C 99 ¢LRQ = =( SP) +1 ; 

ime eh ; 7 

7E 046 ac ; ie ci § ADDL 3 +20, RTE, -(SP) : : 

oosgv F ep 1 PUSHAB REA D_K : 3 

nm 4 ERB | Ri Het : 

7E 0000" CF St 0010 MOVZUL Hat a, = (SP; ; ; 

000000006 9 a 99 4 CALLS #12, $¥s$a10 : : 

09 B MOVL RO, STATUS : ; 

1 EB O00CE BLBS STATUS, 1$ ; : 

000000006 00 2 BO 00 i OVI stipperese ; ; 
000000006 00 03 FB 0003A CALLS #2, SYSSWAKE F 
000000006 00 52 Dd 00041 MOVL SfATUS: weet Eratus ; 

04 00048 1$: : 1282 


; Routine Size: 73 bytes, Routine Base: $CODES + 01F0 


144 
i 


i FUNCTIONAL DESCRIPTION: 


OUEA 


CALLING SEQUENCE: 
INPUT PARAMETERS: 
NONE 


SUPVPVSPISISISISISISIS 


SAIN NN SIO 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


WAT PINIPIPOPOPPoPorefnonofnofnonorrn 
CONAL EWN —OOoo wis~ 


WN “SO VONAOULSWN OO 
Mw 


COMO 


IMPLICIT OUTPUTS: 
NONE 


oooo 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


SESSSESELSSE 


BUS 


IOSB_WORD = rte prtesa_fosb} : VECTOR C,WORD), 
IOSB_BYTE = rte reesg.teses : VECTOR C,BYTEJ, 
char = rte (rte$t_buf] : BYTE; 


LOCAL 
outdesc: VECTOR 


oon 
ooo 
wn — 


2) 
outbuf: VECTOR (132,BYTE); 


ee ee ee a em em me me ed ed a ed dd od dd nd ed od dd dd od 


PIRI AN HII NIA PUNINPINIPINIPYPININPIAIPINIPODYIID 8 at td ot tt 
o o w 
-— mm 
a 
= 
2 


603 

$86 2% report stats 

608 outdesc [1] = outbuf; 

610 IF .char EQL 28 THEN ! *** look for “\ 

611 BEGIN : 

ol¢ 0 ! PRINT (ZASCID ‘write _active_count:!_!UL", .write_active_count); 
61 1 ! PRINT (ZASCID ‘port_count:'_!UL", -port_count); 
614 § ! PRINT (ZASCID ‘read_pending:!_!UL', -fead_pending); 
615 ! dump_stats (); 

616 r 'debug_ast (); 

3h : gt (ss$_normal); 

54 § iosb_word Cw_riosb_datasize)] = .iosb_word Cw_riosb_datasize] + 


"9 
RIDT 16-Sep-1984 02:21: VAX=11 Bliss-32_V4.0-742 Page 19 
yor e800 ea eee8Be PSi8its Ne tAlSteR hte Secaerore.es2:1° ch; 
: 3 ROUTINE read_kb_ast (rte: REF $BBLOCK) : NOVALUE = 


23 


." 


ao 


PAA AAAAAAAAAAO 
FUN SO OONOUS wiry 


GEA 
vuvuVvVUUUNU 
a kk kt 


WANN 
bee ww oD oe oo a a 
SOOWONAULS WR OOONOULS WN O 


Be Se ee Ge Se Ge Se Ge Ge Ge Se ee S8 Sse Ge Ge See Se esee 


16-Sep-1984 VAX-11 
18-Sep-1984 96:63:86 | MhebnSh 
-iosb_byte Cb_riosb_termsize); 
adjust for TTDRIVER bug 
IF .iosb_b ayse fb. riosb aers EQL 0 THEN 
osb word [w_rioSb_datasize iosb_word A riosb datasize] - 
-iosB_byte CB_riosb_termsize); 
IF - 10s8 40 oe Cw_riosb_datasize] NEQ 0 THEN ! if there is data in the buffer 
ae 
$0 io°t = .port_ 2gha 
CHUN = 108 writevolk 
ASTADR = read_command_kb, 
ASTPRM = .rte 
10S8 = rte “trtesq_to fospd. 
P1 = rte (rte$t_ ~puf 
P2 = ,iosb_word Cw_ ae -datasizel, 
~ = 0) 0 forces no carriage control 
1 END; ! End of routine read_kb_ast 
007C 00000 READ_KB_AST: 
«WORD Save R2,R3,R4,R5,R6 
56 00000000G 00 9€E 00002 MOVAB WAKEFLAG, R6 
55 00000000G 00 9€E 00009 MOVAB RETSTATUS, RS 
54 00000000G 00 9€E 00010 MOVAB YSSWAKE, 
5E FF74 CE 9E 00017 ovAg -140(SP), SP 
52 04 AC 0C C1 0091C ADDL e ° 
53 04 AC 14 C€1 00021 ADDL3 #2 RTE, R 
FC AD oF 9E 00026 MOVAB OUTBUF OUTDESC+4 
1C 63 91 0002A CMPB ss (R3), #28 
0C 12 0002D BNEQ 1 
66 01 pO 0002F MOVL of WAKEFLAG 
43 C 000352 CLRQ (SP) 
64 02 FB 000 CALLS #2, SYSSWAKE 
. 65 01 00 00037 MOVL #1, RETSTATUS 
. 04 003A RET 
50 06 =A A 00038 1$: MOVZBL 6(R2) RO 
02 . A2 5 AQ O05F ADDW2 RO, 2¢R2 
04 A2 9 4 TSTB. —s- &(R2) 
08 12 ok Q 3§ 
50 06 Ae 9A 0004 pope (R2), RO 
02 A2 sO A 004 SUPW2 RO, 2¢R2) 
02 A2 B 2$: TSTW gR2) 
3 1 BEQL $ 
—E 7C CLRQ (SP) 
7E 7C CLRQ -(SP) 
7E 02 A2 3C 9 MOVZWL 2(R2), -(SP) 
55 DD D PUSHL R3 
9s AC pp F PUSHL RTE 
FF51 gf F 00 oe PUSHAB a alee 
2 DD 000 PUSHL R 


Bli Seat V4.0-742 
SMASTER: CRTPAD.SRCIRTDTE .B32; 479 


Sete Se Se Se Se Ge Se Ge Se Se Se Se Se Sse Se Se Se Se Se Sse Se Se Se Se Se Se Se Se Se 


; Routine Size: 


3 
5 


SCODES + 0239 


. 
? 


FOoWDnrowoegslsogo 


fo felejoleloloelololeoio) 
lelelelelolelololeolola) 
COCOOOOO NII NINO OO 


ouounNOomMo"Owso 


Ww 
bad 


p=1984 1:63:00 DISKSVMSMAS 


#48 

PORT CHAN, (SP) 

#2, $yssa10 

0. °§ sT TAT $ 

rT US EFEAG 
(SP) 


Ds 
ws te $A 


be 
mon 


V4.0-742 
TER: CRTPAD.SRCIRTDTE.B32; 479 


AKE 
FR RETSTATUS 


10 
18-Sep-1984 02:21: VAX=11 Bliss-32_V4.0-742 p 
easeeah a8 S:6s:8§ | Nek dwBALS FERS cH ERD Secanrpre.032:5°%" (35 


; 644 1361 1 ROUTINE Read_port_timed (nodelay) : NOVALUE = 

: 645 136¢ 1 ttn , 

3 ose 1365 1 {44 

; 64 1364 1! 

; 648 1365 1 ! FUNCTIONAL DESCRIPTION: 

; 649 1366 1 | 

; 650 1367 1! Start reading from port by doing a read with a govereus buffer 

; 651 1368 1 ! and a 0 second timeout. The effect of this is to read typeahead 

3 $26 : 3 ! and return (to AST) immediately. 

3 $28 1371 1 ! CALLING SEQUENCE: 

; 655 1 ye 1} 

; 656 isf7> (3 Read_port_timed (); 

; 657 1374 1! 

; 658 1375 1 ! INPUT PARAMETERS: 

; 659 13/8 1! 

; 660 ae Be nodelay - 0 if no hurry 

; 661 1378 7s urgent request 

; 66 1379 1! 

; 66 1380 1 ! IMPLICIT INPUTS: 

; 664 1381 1! 

3; ©6665 1386 1! PORT_CHAN 

; 666 1385 17! 

; 667 1384 1 ! OUTPUT PARAMETERS: 

; 668 138? .% NONE 

; 669 1386 1! 

; 670 1387 1 ! IMPLICIT OUTPUTS: 

; 671 1388 1! NONE 

, Of 1389 1! 

; 67 1390 1 ! ROUTINE VALUE: 

; 674 1391 1! Status 

s 6f9 1336 1! 

3; 676 1395 1 ! SIDE EFFECTS: 

3; O77 1394 1! NONE 

; 678 1395 1! 

; 679 1396 1 !e- 

: 680 1397 1 

3; 681 1398 BEGIN 

; 68 1399 

; +68 1400 LOCAL 

; 684 1401 rte: REF $BBLOCK; ! rte data block 

; 685 1008 

; 686 140 IF .nodelay THEN 

; 687 1404 BEGIN 

; 688 1405 cnt_rp_timed = .cnt_rp_timed + 1; ! 2% counter 

3; 689 1408 rte = allocate_buf Trte$c length); ! allocate 

3; 690 140 ort_count = .port_count * 1; ! increment outstanding read 

; 691 1408 F .port_count GTR .max_port_count THEN max_port_count = .port_count; !2%% 

; 4 1093 read_pending = false; ! clear read pending | 

3 694 1411 : Read with a zero second time out from the port channel. The effect of this | 

: o3? Vale } is to read the buffer and return immediately, with or without a terminator. 

3; 697 P 1414 quit_if_error ( 

; 698 P 1415 $Q10 (CHAN = .port_chan 

; 699 P 1ei8 FUN = jo$_réadvb(k OR ioSm_timed OR io$m_noecho, 

; 700 P 141 ASTADR = Read_port_ast, 
| 


7 
| 


D 10 
16-Sep-1984 02:21:32 VAX=11_BLiss-32_v4.0-742 3 
1e=8eb-1984 13:65:00 DISKSUMSMASTERSCRTPAD. SRCIRTDTE.832:1°%" (93 


za=<= 


: 701 P 1018 ASTPRM = .rte : 
; 7 : P 141 10SB = rte frtega. fosb], F 
3; 70 P 1420 P = rte [rte$t buf], : 
; 7046 P 1421 P2 = rte$c_buflén) ; 
; 705 14 ¢ ); 3 
, fF 14 END $ 
3; 1424 ELSE $ 
; ree 1 3 pe t t GE@ rt d THEN RETURN; 
: -port_coun rte$c_portread_max : 
; 710 14 5 IF Agr Eimer pending T nen : 
: Fi) 1258 Fé ai 
5 : = ending = true; : 
: ag P1480 4 quit. Tl erret. ¢ 
s Tl6 P 1431 4 SSETIMR. (DAYTIM = delay_time . 
: 715 P 14 é 4 ASTADR = read_delay_ ast) : 
: £18 14 4 ; : 
ie a 1434 END; $ 
s 718 1435 END; 3 
; 719 1436 END; ! End of routine Read_port_timed ; 
000C 00000 READ_PORT TIMED: . 
.@ORD Save R2,R 3: 1361 ; 
53 0000" CF 43 0000 MOVAB PORT “EoONT R3 F : 
45 04 AC ES 0000 BLBC 2$ > 1403 : 
FDD8 C3 D6 90008 INCL ONT Be wf hep + 1405 ; 
7E 64 8F 9A OOOOF MOVZBL #100, =(SP) 3: 1406 ; 
0000vV CF 01 FB 00013 CALLS #i, ALLOCATE BUF : : 
63 Dé 00018 INCL PORT COUNT : 1407 3 
FDD4 ¢3 63 D1 OOOIA CMPL PORT_ “COUNT, MAX _PORT_COUNT : 1408 b 
05 15 OO01F BLEQ 3 3 3 
FDD4 C3 63 bd Bb oS. MOVL PORT_COUNT, MAX_PORT_COUNT 5 é 
0c A3 be 00026 1$: CLRL READ” PENDING : 1409 3 
7E 7C 00029 CLRQ et 34 : 1422 F 
7E 7C 00028 : $ 
7E 50 8F 9A 0002D MOVZBL ae -(SP) ; ‘ 
14 AO 9F 00031 rie : : 
50 DD 00034 PUSHL RT : 3 
0000v CF 9F 000 PUSHAB READ_PORT_AST 3 : 
0c AO 9F OOO3A PUSHAB 12(RTE) : 3 
7E Fl 8F A BS D MOVZBL #241, -(SP) : 3 
7E FA A3 C 41 MOVZWL PORT” CHAN, -(SP) g : 
7E 04 Bete CLRL 3 . 
000000006 00 Oc FB Ree CALLS #1 . SYS$QI0 F : 
1F 11 0004 BRB $ . 3 
02 $3 D1 00050 2$: CMPL PORT_COUNT, #2 : 1426 $ 
7. (CY 88 BGEQ 4 3 
3 08 A3 € 0 BLBS pines PENDING, 4$ : 1427 
08 A gt D 0 MOVL TIMER PENDING : 1429 
E D4 ) CLRL : 1433 
0000v CF F f PUSHAB READ DELAY_AST 8 
14 A3 OF 63 PUSHAB DELA AY_T TIME™ 3 
7E D4 $8 CLRL Ot SP) ~ 3 
000000006 00 94 FB 000 CALLS #4, SYSSSETIMR 3 
| 


i 


10 
if 2077188 3:8bi8g | Beeb ShAe teas ch tds caconrore.032:4°% ae 3h 
7 oe ee 
000000006 00 b 4 MOVL #1, WAKEFLAG 
00000006 00 ; #6 oo0vE OTT s a AKE 
daitedsit 88 2 60 D088 OVE Stareee: RETSTATUS 
04 O008C 4$ ET 1436 


3; Routine Size: 141 bytes, Routine Base: $CODE$ + 02C3 


a—X————eeeeeee ee Cc 
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1e=8ep-1986 18:65:08 DT SkSVmSN 
ROUTINE Read_port_ast (rte: REF SBBLOCK) : NOVALUE = 


'4¢ 

' 

! FUNCTIONAL DESCRIPTION: 

Handle AST delivered from reading port Line to host system. 
hed must be displayed on command port with all due 


If Q10 did not finish with status of SS$_TIMEOUT, then there is 
still more data in the buffer, another timed read must be done. 


CALLING SEQUENCE: 

AST routine 
INPUT PARAMETERS: 

rte - buffer with Q10 status and data 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

Set up references to I0SB 

BIND 
IOSB_WORD = rte Erte$q_iosb] : VECTOR f-¥oRD " 
IOSB_BYTE = rte [rte$q_iosb] : VECTOR C,BYTEJ; 

IF (.iosb.word Cw_riosb_status] NEQ ss$_timeout) THEN 
BEGIN 


read_port_timed (0); 
cnt _fp_ast = .cnt_rp_ast + 1; 


Bliss V4.0-742 
:CRTPAD.SRCIRTDOTE .B32; 


IF (NOT .iosb_word Cw_riosb_status]) AND (.iosb_word Cw_riosb_status] NEQ ss$_timeout) THEN 


quit (.ioSb_word Cw_rioSb_status)); 


iosb_word Cw_riosb_datasize] = .iosb_ word Cw riosb datasize] + 
-iosb_byte CB_riosb_termsize); 


= —- -~-— —-—_----4 
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SBSe 


791 
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i i kk dd dd 
oo OOOOCCOCOOOOO 
DNPAPWVIIODRNS ARGO ODO 
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iSrSeoctgge 09:21:53 yanedt ats 


! 
adjust for TTDRIVER bug 
if -io0sb_b rte a riosb gt qraghers EQL 0 THEN 


osb ry oSb_datasize iosb_word bye riosb datasize] - 


-iosB_byte riosb_termsizeJ; 
ppre count = .port_count 
-Tosb, word: w_rtosb y tA. BF EQL 0 THEN 
' 
don't bother with this guy 
it rp_zero = ogre, 4 ~7ero #15 ! 4% counter 


deallocate_buf (.rf 
no TURN: count = port. count - 1; 


cnt_rp_char = .cnt_rp_char + .iosb_word Cw_riosb_datasize]; ! %% counter 


INSQUE (.rte, .write_command_q [1]); ! insert at end of queue 
write_command (); ! check for start write 
END; ! End of routine Read_port_ast 


000C 00000 READ_PORT_AST: 
Gor e R2,R3 


n Sav 
52 04 AC o¢ C1 0000 ADDL3 #12, RTE, R2 
53 D4 0000 CLRL = R3 
022c BF 62 81 00009 CMPW 3s (R2), #556 
op 13 00005 BEQL ~=«'1$ 
D6 0001 INCL RS 
7E D4 00012 CLRL = = (SP) 
FFSA CF 01 FB ORS CALLS #1, READ_PORT_TIMED 
0000" CF 06 00019 INCL CN RP_AST 
$¢ E8 0001D 1$ BLBS R2 %$ 
1 E9 000 BLBC $ 
000000006 00 gi bO MOVL OP WAKEFLAG 
C A CLRO ) 
000000006 00 02 FB g CALLS #2, SYSSWAKE 
000000006 00 6 ¢ ; MOV UL (R2), RETSTATUS 
50 06 A2 9A 2$ MOVZBL 6(R2), RO 
02 =A 50 A F ADDW2 RO, 2(R2) 
04 A 9 3 STB 4(R2) 
50 06 A2 9A rk HOV ZBL 6(R2), RO 
02 =A 5 Ag ac W2. RO, 2¢R2) 
0099" CF OD 3$ DECL PORT COUNT 
A2 83 4 TSTW ©. 2¢R2T 
0D 7 BNEQ 4$ 


V4.0-742 
TER: CRTPAD.SRCIRTDTE.B32;1 
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RT 
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Fs 


0090" CF 06 59 INCL  CNT_RP_ZERO ; 1507 
At DD PUSHL RTE : 1508 
0000v CF 0 FB CALLS , DEALLOCATE_BUF Fen 
50 02 a2 ae 4$: MOVZWL 2(R2 RO. ; 1393 
00° CF 5 § A ADDL2 RO tar R : 
' OF 04 BC 3 F INSQUE aRfeE, SORT NCOMMAND . Q+4 + 1515 
OOv CF FB 00075 CALLS #0, WRITE ITE com + 1517 
04 0007A + 1519 


; Routine Size: 123 bytes, Routine Base: S$CODE$ + 0350 
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; Routine Size: 105 bytes, Routine Base: $CODE$ + 03CB 
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X-11 Bliss-32 V 
SKSVMSMASTER: CRT 


: B66 P 1577 $Q10 (CHAN = command. chan, 
; P 1 £8 FUNC = jo$ writevblk, 
; P 157 ASTADR = Wrife_command_ast, 
; 865 P 1580 ASTPRM = .rte 
; P 1581 10S8 = rte “frtesa_to jog . 
; 86 P 1 § P = rte [rte$ t-but 
: 868 P 1 P2 = ,iosb_word CLw_riosb ~datasize] 
: 869 P 4 P4 = 6) forces no carriage control 
: 871 1 END; ! BIND ‘ 
; bre 1 Hi 
s 687 1588 END; ! End of routine write_command 
000C 00000 wRITE_COMMAND: 
-WORD Save R2,R3 
53 0000" CF 9€ 0000 MOV WRITE_COMMAND_Q, R3 
3 oa fC 9000 SUBL2 #4, S 
0 E8 A3 D1 OOOOA CMPL Rite _ACTIVE_COUNT, #3 
58 18 0000 BGEQ 
50 63 9€ 0001 MOV deire _COMMAND_Q, RO 
50 63 D1 0001 CMPL § WRITE~COMMAND~Q, RO 
50 13 0016 BEQL =s«1$ 
E8 A3 06 0001 INCL WRITE ACTIVE COUNT 
6E 00 B83 OF 00018 REMQUE auRITE &¢ MMAND_Q, RTE 
50 bE 9¢ ci O01F ADDL RTE Onno 
E 7C 00023 CLRO 1g, 
re 7€ 000 3 CLROQ ~(35} 
7E 02 ad 3¢€ 000 MOVZWL 2(RO), -(SP) 
7E 16 AE 14 C1 000 ADDL3 #20, RTE, -(SP) 
18 AE DD 000 PUSHL 
0000v CF 9F 999 PUSHAB WR TE COMMAND AST 
7E 20 AE 9¢ C1 000 ADDL3 , RIE, -(SP) 
: bo 003¢ PUSHL 4 
7E pc «= ABs 3€:«000 MOVZWL COMMAND_CHAN, -(SP) 
7E D4 0004 CLRL = sP 
000000006 00 FB 00044 CALLS #12, SYS$QI0 
3¢ DO 00048 MOVL RO, STATUS 
1 E8 0004E BLBS STATUS, 1$ 
000000006 00 91 p 0051 MOVL #1, WAKEFLAG 
C 99 8 CLRO = 
000000006 00 Q FB A CALLS #2, AKE 
000000006 p 0061 MOVL StAtUs: eRe Te ratus 
4 00068 1$: RET 
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K 10 
1e=$ep-1986 49:65:00 DISkSVMSMASTERS 
ROUTINE Write_command_ast (rte: REF SBBLOCK) : NOVALUE = 


144 
' 


i FUNCTIONAL DESCRIPTION: 

Write to command terminal has completed, delete rte buffer. 
CALLING SEQUENCE: 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


sie 
CHAR_ARRAY = rte (rte$t_buf] : VECTOR C,byte], 
IOSB_WORD = rte preesa.fosb VECTOR C,word), 
a = rte [rte$q_iosb VECTOR C,bytel; 


qio_size; 


i write to screen is complete, decrement count and call routine to 
check for more pending writes. 


write_active count = .write_active_count - 1; 
write_command (); 


IF C.ctera.f lag AND flg$m_logging) NEQ 0 THEN ! if logging 


B 
12 size = .iosb_word (1); !#t* 
sag 0 TO°.qio_Size - 1 DO 
IF NOT (.char_array ([.i] EQL char$c_lf) THEN 
IF achor orrey -iJ EQL char$c_cr) OR (.log_count GEQ 512) THEN 


IF (.log_count GTR 0) THEN 
rtlog$write_string (log_buffer, .log_count); 
Log.coun = 0; 
EN 
ELSE 


<2 


=742 p 
> SACIRTDTE.B32:1° 7 (135 
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OO00000 
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* 


; Routine Size: 


2g 04 AC 
5 06 AC 


FF7E ¢ 
43 000000006 90 


00000200 = &F 


000000006 00 


FEOO (540 
C6 53 
0000v CF 


113 bytes, Routine Base: 
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BEGIN 
log_buffer C.log_count] =, char array C.43; 


164 

188 L t l 
og_count = .log_count + 1; 

18 1 4 ENB? we 

16 ; END; 

1? END; 

1654 

1655 deallocate_buf (.rte); 

1928 !eeeport_count = .port_count = 1; 

165 

1928 

165 'IF .read_pending THEN 

1660 cnt_wr_ast = .cnt_wr_ast + 1; 

1661 'read_port_timed (0); 

1066 

1665 1 END; 


! End of routine Write_command_ast 


003C 00000 WRITE_COMMAND_AST: 
WORD 


. Save R2,R3,R4,R5 : 1591 
0000" CF 9E 0000 MOV LOG_COUNT, RS : 
14 C1 0000 ADDL3 #207 RTE, R + 1623 
o¢ C1 9900¢ ADDL3 #12, RTE. R : 1684 
10 AS D7 00011 DECL WRITE ACTIVE_COUNT : 16 : 
00 FB 00014 CALLS #0, WRITE_COMMAND : 163 
03 Fi 90019 BBC #3, CTERM-FLAG, 6$ + 1635 
02 A’ 3C 00021 MOVZWL 2(R3), Q1O_S1ZE : 1637 
01 CE 00025 MNEGL #1, I : 1638 
36 11 00028 BRB 5$ : 
6342 91 0002A 18: CMPB =s-« (1) CR2, #10 + 1640 
30 13 000 BEQL 6=sSSS$ : 
65 po 00 MOVL _LOG_COUNT, RO + 1643 
6342 91 0003 CMPBs« C1) ER2J, #13 + 1641 
09 13 0037 BEQL =-2$ : 
65 01 00039 CMPL  LOG_COUNT, #512 : 
15 19 0040 BLSS 4$ : 
50 D> 0042 2$: TSTL RO + 1643 
gp 15 00044 BLEG 46s 3$ F 
0 pp 0046 PUSHL RO + 1644 
FEOQO § C5 OF 0004 PUSHAB LOG_BUFFER : 
é FB 0004 CALLS #2, RTLOGSWRITE_STRING : 
p 053 3$: CLRL LO6_COUNT > 1645 
9 11 0005 BRB 5 > 1641 
634¢ 90 3 4$: MOVB  (1)CR2J, LOG_BUFFERCROJ > 1649 
§ Dg 3 INCL _—_ LOG_ COUNT + 1650 
4 0060 5$: AOBLSS QIO"SIZE, I, 1$ ; 1638 
04 AC DD 0064 é$: PUSHL RTE > 165 
01 FB 7 CALLS #1, DEALLOCATE_BUF : 
FDFC C5 06 9006¢ INCL CNT_WR_AST : 1669 
04 00 ET 3: 166 


SCODES + 0434 
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:CRTPAD.SRCIRTDTE.B32;1 (13) 


zDD 

— 

o 
3” 
_— 
Foz 
i) 
uwn— 
e2eao 
v0wo 
te 
_— 
ono 
coco 
ae 
-o 
wr 
on 
wn 
Ow 
or 
o=<= 
-—> 
mx 
rom | 
(sh 
<— 
= 
ow 
z= 
>-. 
now 
—wW 
me 
mw 
<2 


3; 9 $ 1665 1 ROUTINE Read_sysinput = ‘ 
3; 9 1 § 1 ; 
; 954 1 1 S++ ‘ 
; 955 1668 1! ; 
; 928 1? 9 ! } FUNCTIONAL DESCRIPTION: : 
; 958 ight 7; ft Read from SYSSINPUT so as to fake reading from SYSSCOMMAND. ‘ 
; 959 1or¢ a. This allows SET HOST from a command file to read commands : 
; 960 1675 1! directly from that file. ‘ 
; 961 1674 1! : 
3 308 1675 1 ! CALLING SEQUENCE: : 
; © 19/8 1! : 
> 964 1677 1! Read_sysinput ‘ 
; 965 1978 1! ‘ 
; 966 1679 1 ! INPUT PARAMETERS: ‘ 
; 967 1980 1! NONE ‘ 
; 968 1681 1! : 
> 969 1086 1 ! IMPLICIT INPUTS: : 
: 970 1685 1! ; 
3; 971 1684 1! File opened by RTPAD module. ‘ 
3 ar6 1685 1! ; 
; 97 1086 1 ! OUTPUT PARAMETERS: , 
: 974 16 1! NONE : 
; 975 1688 1! : 
; are 1689 1! ; 
; OF 1690 1! ; 
; 978 1691 1! : 
: 979 1936 1 ! ROUTINE VALUE: : 
; 980 1693 1! NONE : 
3; 981 1694 1! : 
; 98 1695 % ! SIDE EFFECTS: : 
; 98 1696 1! NONE : 
> «984 1697 1! ° 
; 985 1698 1 !-- : 
; 986 1699 1 ‘ 
; 987 1700 2 BEGIN : 
; 988 1701 ‘ 
; 989 1706 RETURN (ss$_normal); ; 
; 990 170 : 
; 991 1704 1 END; ! End of routine : 


0000 00000 READ_SYSINPUT: 
WORD 


° S 
50 01 DO 0000 MOVL i 
04 0000 RET 


; Routine Size: 6 bytes, Routine Base: S$CODE$ + 04A5 


othin : 1665 
a : 1702 
: 1704 


IMPLICIT OUTPUTS: 
NONE 
; 992 1705 1 
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! End of routine read_port_mbx 
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MBX: 
QORD 


0004 00000 READ_PORT 


04 


7E 


16-56 Sep-1984 VAX=-11 Bliss-32 V4.0-742 P 5 
1ergeh= 488s PS:6:8§ Peek dOAASFERccHt ERD Secarrpre.032010% «res 
7E 04 ac oc C1 00016 ADDL3 #12, RTE, -(SP) : 
bp 18 PUSHL : 
7E 0000' cr Bf 22 tage PORT _MBX_CHAN, =(SP) : 
000000006 Q FB 000 CALLS #12, SYS$QIO ; 
BB N05 Bees Stara 48 
000000006 00 Qi D0 00 i NOV "| WAKEFLAG : 
000000006 00 03 FB 0003A CALLS #2, SYSSWAKE : 
000000006 00 52 D0 00041 MOVL STATUS, RETSTATUS : 
04 00048 1$: RET 3 1749 


; Routine Size: 73 bytes, Routine Base: $CODE$ + 04AB 


; 1038 1750 
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' assume read won't happen 


Be 98:65:00 


p 
p- 
: NOVALUE = 


“19 
19 
! End of routine read_mbx_ast 


: WORD; 
14 C1 00002 


timed (7); 


EQL msg$_trmunsolic) THEN 
AC 


cnt_rp_uns = .cnt_rp_uns + 1; 


called as an AST routine. 
04 


INPUT PARAMETERS: 

RTE = address of 1/0 block 
IMPLICIT INPUTS: 

NONE 

NONE 

NONE 

NONE 

port. 


NONE 
IMPLICIT OUTPUTS: 


msgcode = rte ([rte$t_buf] 


read 


Receives AST from port mailbox. 
END; 


FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 


OUTPUT PARAMETERS: 


ROUTINE read mbx_ast (rte: REF S$BBLOCK) 
50 


OM NMANTMOR. DHOOM WM TIMOR. DHOOM TMOR. DHOK— CUM TNOR- DOO MTOR 
SSSSSISSSS LOSS HOSS SL BSBLSSSSSOSS SASS S SSS SVS SESS 


LLL LL EF ECO 


WE 


16- VAX-11 Bliss-32 V4.0-742 
14- ats vi ¢: gt 36 DISKSVMSMASTER:CRTPAD.SRCIRTOTE.B32; ? 
0000" <¢F 01 10 00007 MOVL #1, READ_PENDING 
01 60 B1 0000C CMPW {RO “7 
0B 12 0000F BNEQ 
0000' CF D6 00011 INCL  CNT_RP_UNS 
1 OD 0013 PUSHL 
FDB3—sCF 1 FB 0 1 CALLS #1, READ_PORT_TIMED 
94 AF st of eS 0 if = CALLS #1, READ_PORT_MBX 
04 00023 RET ; honk 


; Routine Size: 36 bytes, Routine Base: S$CODES + 04F4 
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000000006 99 
000000006 08 


02-600 18-fe 250i 188S PEi68§ | Meth tae hte es Skcsmrore.es2s4 em cras 
0000006 iB it 6 Sees wo) SYSSWAKE ; 
Ce a a a ae : 
a : 

50 6E D0 é 1$: MOVL BUF e + 1840 
A 04 AC ; 0 MOVW SIZE, 8(RO) : 

4 0003A RET + 1844 


; Routine Size: 59 bytes, Routine Base: S$CODE$S + 0518 
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Pe 
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; 113 4g ROUTINE deallocate_buf (buf: REF $BBLOCK) : NOVALUE = 
fn: 
; 114] 20 FUNCTIONAL DESCRIPTION: 

: 108 1 ; 1 | 

: 11464 1 1 i 

; 1145 4 i CALLING SEQUENCE: 

; Hi Hi INPUT PARAMETERS: 

21146 1 1/ ; 

: 1150 1 26 1 | IMPLICIT INPUTS: 

2 SF Stan 

: 1188 1 6¢ 1 | OUTPUT PARAMETERS: 

eo ea 

; 1136 1865 1 | IMPLICIT OUTPUTS: 

Be bogie 

: 1159 1803 1 | ROUTINE VALUE: 

> 1160 1869 1} NONE 

: 1161 1870 1: 

: 1168 1871 1°! SIDE EFFECTS: 

> 116 187@ 1/ NONE 

> 1164 1873 1! 

> 1165 1874 1 i-- 

: 1167 1332 ! BEGIN 

> 1168 1877 

$ 1198 1378 ; Quit_if_error (LIBSFREE_VM (buf Crte$w_size], buf)); 
(b1171 1880 1 END; ! End of routine 


0004 00000 DEALLOCATE BUF : 
WORD 


: Save R2 > 1846 

04 AC 9F 0000 PUSHAB BUF : 1878 
é 04 A C1 00 ADDL3 #8, BUF, -(SP) : 
000000006 Q f A CALLS #2, LIBSFREE_VM ; 
D 11 MOVL R STATUS 3 
1 E 14 BLBS TATUS, 1$ F 
000000006 00 BO 7 Ovi WY, WAKEFLAG : 
0006 ; f 6 CALLS #2, SYSSWAKE : 
titddittdit 8 i 5 MOVL STATUS, RETSTATUS : 

4 E 1$: RET : 1880 
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3; Routine Size: 


: 188 


29 bytes, 


198 1 


000000006 00 


Routine Base: 


1b-bep-1944 98:63:38 UNS nGadSFeacch teen Secanrore.032:1°% «18s 
Oc FB 00015 CALLS #12, SYSS010U : 
3: 1922 


SCODES + 0582 


K 11 
1e-$ep=1986 19:65:08 DISKSUMSMASTERSCRTP 


3 13 5 } ROUTINE SET_PASSTHRU_MODE (chan, char: REF VECTOR, nobrdcst) = 
7 a |i 

: 13 $ ! FUNCTIONAL DESCRIPTION: 

: 19 1 Sets PASSTHRU, TTSYNC, HOSTSYNC, and (optionally) NOBRDCST. 
: 19 § CALLING SEQUENCE: 

; 1935 1 | INPUT PARAMETERS: 

; 19 § 1! NONE 

3 19 1! 

; 1938 1 | IMPLICIT INPUTS: 

1960 1 | _ 

: 1941 1 | OUTPUT PARAMETERS: 

} ip 

: 1944 1 ! IMPLICIT OUTPUTS: 

| mit a 

; 1947 1 ! ROUTINE VALUE: 

: 1 Fae 

: 1950 1 ! SIDE EFFECTS: 

: 1951 1: NONE 

; 1958 1! 

1 By 

: 1955 BEGIN 

; 1957 2 LOCAL 

: 1958 status, 

3 1322 new_char: VECTOR (3); 

; 1961 new_char (0) = .char (0); 

3 1986 new char C1) = .char C1] OR TTSM_TTSYNC OR TTSM_HOSTSYNC; 
: 1307 new_char (C2) = .char C2] OR TT2$A_PASTHRU; 

; 1965 If .mobrdcst THEN 

3 1306 new_char (1) = .new_char C1] OR TTSM_NOBRDCST; 

: P 1968 Status = $Q10W ( CHAN = .chan, 

; P 1969 FUNC = io$_setmode, 

> P 1970 P1 = new char, 

; 1971 P2 = 12)7 

; 1978 RETURN (.status); 

; 1975 1 END; t End of routine SET_PASSTHRU_MODE 


0000 00000 SET_PASSTHRU_MODE : 


-0-742 fag 


AD.SRCIRTOTE .B32; 
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wy 18-Sep-1984 99:61:38 VAX=11 Bliss-32 V4.0-742 dt} 


=3 74 Pag 
DISKSVMSMASTER: CRTPAD.SRCIRTOTE.B32;1 


14-Sep- 

.WOR Save nothing 3: 1925 

08 ¢ SUBL2 BB. SP : 
f 08 5 66 MOVE CHAR, RO + 1961 
04 AE 04 Ap ; 3 BISL3 a3 4(RO), NEW_CHAR+4 + 196 
08 AE 08 a0 00040000 &F ¢ 1 BISL3 #262144, B(RO), "NEW_CHAR+8 + 196 
04 oC Ns 9 00018 BLBC. NOBRDCST + 1965 
06 AE 9 8 0001 BISB2 #2, NEW_CHAR+4 + 1966 
— 7C 1$: CLRQ. 0. = (§P) + 1971 

7E 7¢ 09 €LRQ isp) : 

OC oD PUSHL #1 : 

16 AE OF 00 9 PUSHAB NEW CHAR : 

43 C C CLRQ = (sP : 

7E 23 7D 0002E MOVQ #35, =(SP) : 

04 AC DD 00031 PUSHL : 

7E 04 00034 CLRL. = (SP) ; 

000000006 00 OC F8 000 CALLS #12, SYS$Q10W : 
04 00030 RET + 1975 
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Routine Base: 


18 bytes, 


3; Routine Size: 


Page 


li 
MASTER: CRTPAD.SRCIRTOTE .B32;1 


$$-32 V4.0-742 


ow 


a> 


OUTINE exit_routine = 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
INPUT PARAMETERS: 


NONE 
IMPLICIT INPUTS: 


NONE 


OUTPUT PARAMETERS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


ROUTINE VALUE: 


NONE 


SIDE EFFECTS: 


NONE 


SCANCEL (chan = .command_chan); 
$Q10W ( CHAN = .command 


chan, 
io$_setmode, 
= comman 
= 12); 


~EXTRN SYSSCANCEL 


! End of routine Exit_routine 
ROUTINE: 


d_char, 


dump_stats(); 


0 
0 
2050 


1 
A, ~(SP) 


CHA 
SYSSCAN 


0000 00000 EXIT_ 


000000006 00 


ite tt 98: §3: 36 Disk $vme meh ASferscnt BAD. gacIRTDTE. B32; ? mg 


43 7¢ 00018 CLRQ = = (SP) ; 
7E 2 £0 1A MOV #35, =(SP) : 
7E 0000' cf 3¢ 10 MOV ZL COMMAND. CHAN, =(SP) : 
os Wiha «| RE Bossy, sas 
fh 000000006 00 68 0080 MOVL Retsrarus’ RO + 2054 
04 00037 RET + 2056 


; Routine Size: 56 bytes, Routine Base: S$CODE$ + OSEr 


12 
18-Sep-19 4 0¢: 6: 35 VAX-11 Bliss: 32 V4.0-742 
14-Sep-1984 5:0 DISKSVMSMASTER: CRTPAD. SRCIRTDOTE.B32; fag 


3 1 oP TH 1 ROUTINE dump_stats : NOVALUE = 

; 1354 0 8 BEGIN 

| 2? 05 LOCAL 

; 1356 060 outdesc: VECTO be } 

: 2 06} outbuf: VECTOR €132,BYTE]; 

3 3 25 $68 IF (.rtlog flags AND rtlog$m_banner) EQL 0 

; 1360 064 THEN ! Tf logging 

3; 1361 065 RETURN; 

3: 1 o¢ 066 

; 136 067 ! 

3 1364 068 %% report stats 

: 1365 069 

3; 1366 070 outdese 1) = outbuf; 

; 1367 071 PRINT (ZASCID vRREM-I I-STATS) runtime statistics:',0); 

3: 1368 O76 PRINT (ZASCID '!8<!uU calls to read port_timed’, -cnt_rp_timed); 
3: 1369 07 PRINT (ZASCID '! <iutis characters output fo screen’ .cnt_rp_char); 
3; 1370 074 PRINT (ZASCID ''8<iUL'> reads for zero gsm P -cnt_rp_zero); 
3 1371 2075 PRINT (ZASCID ‘!8<!UL!> calls to SSETIMR -cnt_rp_timer); 
3 1376 2076 2 PRINT (ZASCID ‘!8<!UL!> unsol data hits', -cnt_rp_uns); 
s 157 2077 2 PRINT (ZASCID '!8<iUL'> calls to RPT from rp_ ast' ‘ .cnt_rp_ast); 
3: 1374 2078 § PRINT (ZASCID ‘"!8<!UL!> calls to write screen’, -cnt_wr_ast); 
: 132 $000 rf PRINT (ZASCID *!8<!UL!> max outstanding port reads', -Max_port_ count); 


-PSECT $PLIT$,NOWRT,NOEXE,2 


72 20 2C 53 54 41 54 53 2D 49 2D 4D 45 52 25 00060 P.AAO: .ASCII \%REM-I-STATS, runtime statistics:\<0><0> 
69 74 73 69 74 61 74 73 20 65 6D 69 74 of 75 QO06F 
ay hens” 3 $0088 -ASCII <> 
Oa 
neeemigeAaenaeartnese Hx Sli S008. P.AAQ: .ASCII \!8<!UL!> calls to read_port_timed\<0> 
74 SF 74 72 6F 70 SF 64 61 65 72 20 6F 74 20 00098 
2 inte ee BOOAE ASCII <0> 
g10eg0e?, B08) Pann: LONG. 17694756 
61 72 61 68 63 $0 0 3—E 21 4C 55 4 3C 8 21 00088 P.AAS: .ASCII \raeruL!> characters output to screen\<0> 
6F 74 20 74 75 70 74 75 6F 20 73 § 65 74 63 000C 
me eee b8 Q G00De eASCII <0><0> 
010E00 Nita P.AAR: .LONG 17694757 
bogp00 0" QO0E4 “ADDRESS P.AAS 
73 64 61 «65 % $8 20 TW 271 «4C «OSS $4 3C 1 ta | P.AAU: .ASCII \raetUL!> reads for zero characters\<0> 
61 72 61 68 6 0 6F 72 65 " $9 £§ of $6 ; bor 
4 68 ai0¢ P.AAT: .LONG 17694755 
0 6 0" 11 eADDRESS P.,AAU 
73 6C 6C 61 63 20 20 f 21 ef 55 4 3C 1 0114 P.AAW: .ASCII \!8<!UL!> calls to SSETIMR \<0> 
00 20 52 4D 49 54 45 53 24 20 6F ' 4 20 ! 3 eS re 17694747 
bogpo0go: 134"  CADDRESS 
Ee@ereeirianraenaextr ad ax Se 138 P.AAY: .ASCII Af ae unsol data hits\<0><0><0> 


Pete Se Se Se Se Se Be Se Se Se Be Se Se Se Be Se 


7 
D 12 
RIDT 16-Sep-1984 02:21: VAX=11 Bliss- -32 V4.0-742 Pa e 49) 
v04= 13-808 -1 3b 96:53:38 DISKSVMSMASTER: CRTPAD. SRCIRTDTE.B32; 1 9° 23) 
00 00 00 73 74 69 68 20 61 74 61 64 20 147 ; 
01000 154 P.AAX: .LONG 17694745 : 
73 6C 6C 61 63 20 20 3& 21 4 55 3 Ws 9" i rd PABA Tees ae UL!> Lls to RPT f \<0 ; | 
e $ cails to rom rp_ast > 3g . 
$5 $5 St oF $8 22 36 8) bf 52 3 gf 74 20 0168 Pe : 
00 74 73 61 SF OOI17A : 
17F ASC 9 : 
010 00 180 P.AAZ: .LONG 17694754 : 
73 6C 6C 61 63 20 20 3€ 21 5 21 3¢ ° Me BOIRS PLABC: CASCIT NIACTOL!> calls to writ \<0 ; 
. e H ° calts to write screen > ; 
65 gs 72 63 $3 8 65 74 69 5 33 $4 6F 4 20 o19 : 
018 OO1F S148 P.ABB LONG 17694751 : 
6F 20 78 61 6D 20 20 3& 21 4C 55 21 "3 net 6185 P.ABE ASChi s lieta!> tstandi ds\ : 
° $ e max outstandin ort reads ; 
a ae a es gE 61% a 98 St Bie he ; 
73 64 61 65 72 30 001CE : 
010E0024 00104 P.ABD: .LONG 17694756 : 
00000000" 00108 “ADDRESS P.ABE ; 
.PSECT $CODE$,NOWRT,2 
003C 00000 DUMP_STATS: 
«WORD Save R2,R3,R4,R5 : 2057 
55 0000" CF 9€ 0000 MOVAB CNT_RP fT : : 
54 00000000G 00 9E 0000 MOVAB LIBSPUT_OUTPUT, R4 ; 
53 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R3 ; 
52 000000006 00 € 00015 MOVAB SYSS$FAO, R2 ; 
SE FF74 CE 9E O0001C MOVAB <-140(SP5, SP F 
017 000000006 00 ca 60 } BLBS RTLOG_FLAGS : 2063 
FC AD 6E 9E 00029 1S: MOVAB QUIBUF , OUTDESC +4 : 207¢ 
F8 AD 84 8F 9A 0002D MOVZBL #132, OUTDESC > 2071 
7E D4 00032 CLRL = (SP ; 
F8 AD 9F 000 PUSHAB OUTDESC ; 
FB AD OF 00037 PUSHAB OUTDESC : 
0000" CF 9F OO03A PUSHAB P.AAN ; 
62 4 FB 00 CALLS a 1SYSS5A0 : 
05 0 €E8 00041 BLBS STATUS, 2$ ; 
0 DD 00044 PUSHL Tal us’ : 
63 01 FB 00 $ . CALLS #1 LTBSSIGNAL ; 
FS =AD OOF 2. PUSHAB Ouf : 
64 1 FB C CALLS LIBSPUT OUTPUT : 
F8 AD 84 BF 9A F MOVZBL #142 TDESC : 2072 
65 0D 34 PUSHL CNT Thee VIMED F 
FS AD 9F é PUSHAB OUTBESt ; 
F8 AD OF 909 PUSHAB QUTDESC ; 
0000' CF 9F PUSHAB : 
62 4 FB CALLS ye Syssta0 : 
9 E 6 BLB STAT TUS, : 
DD PUSHL STA ; 
63 1 FB CALLS #1, LIBSSIGNAL : 
64 tei i 44 - CAS. & f LIBSPUT_OUTPUT : 
FB AD 84 BF 9A a MOVZBL F420 OUTDESC : 2073 


——————————————eee — ~ a Yy 
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RTDT 15-46 -1984 :21: VAX-11 Bliss-32 V4.0-742 Page 50 
v04= 12-80-13 96:52:38 DISKSVMSMASTER:CRTPAD. SRCIJRTDTE.B32; 1 9° 23) 
04 AS po % PUSHL (CNT_RP_CHAR F 
F8 AD OF 0007 PUSHAB OUTDEST : 
FB = AD «9F O007C PUSHAB OUTDESC ; 
0000' CF 9F OO07F PUSHAB P.AAR : 
62 4 FB 3 CALLS #4, SYSSFAC ; 
0 0 E8 000 BLBS STATUS, 4$ : 
DD PUSHL STATUS ; 
63 01 FB CALLS #1, LIBSSIGNAL ; 
F8 AD OF F 4$: PUSHAB OUfDE : 
64 1 FB 000 CALLS #1, LIBS$PUT_OUTPUT : 
F8 AD 84 BF 9A 00094 MOVZBL #132, OUTDESC + 2074 
08 AS po 0099 PUSHL CNT_RP_ZERO : 
F AD 9F 0009C PUSHAB OUTBEST 3 
FB AD OF OO09F PUSHAB OUTDESC ; 
0000' CF 9F O00A2 PUSHAB P.AAT : 
“ 4 FB O00A6 CALLS #4, SYSSFAO : 
0 0 €8 000A9 BLBS § STATUS, 5$ : 
50 DD OOOAC PUSHL STA : 
63 01 FB OOOAE CALLS #1, LIBSSIGNAL ; 
F8 AD 9F 00081 S$: PUSHAB OUTDES ; 
64 01 FB 000B4 ALLS #1, LIBSPUT_OUTPUT ; 
F8 AD 84 BF 9a 90087 MOVZBL #132, OUTDESC > 2075 
0c AS DD 000BC PUSHL  CNT_RP_TIMER ; 
F8 AD 9F OOOBF PUSHAB OUTBEST : 
F8 AD OF 00¢2 PUSHAB OUTDESC ; 
0000" CF 9F 000C PUSHAB P.AAV : 
62 04 FB 900¢9 CALLS #4, SYSSFAO F 
05 0 €8 000CC BLBS § STATUS, 6$ ; 
50 0D O00CF PUSHL STATUS : 
63 01 FB 000D1 CALLS #1, LIBSSIGNAL : 
F8 AD OF 000D4 6$: PUSHAB OUTDE F 
64 1 FB 00007 CALLS #1, LIBSPUT_OUTPUT : 
F8 AD 84 8F 9A OOODA MOVZBL #132, OUTDESC : 2076 
10 AS DD OOODF PUSHL CNT_RP_UNS : 
F8 AD OF OO0E2 PUSHAB OUTDEST : 
F8 AD OF OOOE PUSHAB OUTDESC ; 
0000' CF 9F O00E8 PUSHAB P.AAX : 
62 04 FB OO0EC CALLS #4, SYSSFAO : 
0 sO E O90EF BLBS STATUS, 7$ F 
50 OD O0F2 PUSHL STATUS ; 
63 01 FB O00F4 CALLS #1, LIBSSIGNAL F 
F8 AD OF OOOF7 7S: PUSHAB OUT : 
64 01 FB OOOFA CALLS #1, LIBSPUT_OUTPUT ; 
FB OAD 84 8F 9A OOOFD MOVZBL #132, OUTDESC : 2077 
14 AS pp 0198 PUSHL  CNT_RP_AST ; 
F8 AD 9F 0010 PUSHAB OUTDEST ; 
F8 AD 3 0108 PUSHAB OUTDESC ; 
0000' CF 9F 0010B PUSHAB P.AAZ ; 
62 4 FB 10F CALLS #4, SYSSFAO F 
0 0 €8 0011 BLBS STATUS, 8$ ; 
0 DD 0011 PUSHL STATUS : 
63 01 FB 0011 CALLS #1, LIBSSIGNAL : 
64 ro Oe iia ote Re pte y currut 
F8 AD 84 8F 9A 001 MOVZBL #132, OUTDESC : 2078 
18 AS pp 1 PUSHL (CNT_WR_AST : 
FB AD 9F 001 PUSHAB OUTDESC ; 


F 12 
RTDT 16-Sep-19 VAX-11 Bliss-32 V4.0-742 51 
you-800 eagee RRs PGi8Lidg «—-PTScbdnehaSfenccetPan sacaepre.032:4°% «25) 
F AD 9F 128 PUSHAB pts 3 
0008" F 9F 001 PUSHAB 3 
ge 4 4 1 CALLS ag 3 
0 £8 001 ae TUS, 9$ ; 
DD 001 PUSHL STA Tus 3 
63 1 FB QO13SA CALLS #1, LIBSSIGNAL 3 
FB AD 9F 0013D 9S: PUSHAB OUTDESC ; 
64 gt FB 0014 CALLS #1, LIBSPUT_OUTPUT 3 
FB AD 84 BF 9A 0014 MOVZBL #132, OUTDESC : 2079 
FC OAS pd 14 PUSHL MAX_PORT_COUNT ; 
F AD F 148 PUSHAB OUTDBESC 3 
F AD ar 1a PUSHAB OUTDESC 3 
0000' F F 1 PUSHAB ;*2 3 
62 4 FB 155 CALLS SYSS$FAO 3 
0 0 €8 00158 LBS staToS 10$ : 
50 0D 158 PUSHL STAT : 
63 01 FB 150 CALLS #1, LIBSSIGNAL H 
FB AD OF 3189 10$ PUSHAB 3 
64 01 FB 0016 CALLS #1, LIBSPUT_OUTPUT ; 
04 00166 RET ; 2080 
; Routine Size: 359 bytes, Routine Base: S$CODE$S + 0627 
3 if a4 081 
; 1378 082 1 END 
3; 1379 2085 0 ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 636 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
: SPLITS 476 NOVEC.NOWRT, RD .NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) 
; SCODES 1934 NOVEC, *NOWRT. RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: eeeeeene Symbols weocceecee Pages Processing 
$ File Total Loaded Percent Mapped Time 


-$255$0UA28: CSYSLIBISTARLET.L32;1 9776 33 0 581 00:00.7 


12 
ny IECSEOrIOBS 08:20:39 YMCITABLIREE2 V4SOS7E2. sarong gun, £808 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RTDTE/OBJ=OBJ$:RTDTE MSRC$:RTDTE/UPDATE=(ENHS$:RTDTE) 
Size: ; 1934 ¢ ge + 1112 data bytes 
nie 
; Lexenes/CPU-Min; sai 72 


Memor Y Used: 229 pages 
; Compilation Complete 
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